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default, asp 



J02 

<% Option Explicit %> y 

<! ^include file=". . /tasks/ tasks, asp** — > 

<? #include file=". ./„/../., /utils/xmlutils. asj>" — > 

<! — #include file=".. AAA /utils/sysutils,asp — > 

<! #include file^, /.,/.. /.,/utils/dbutils. asp > 

<% 

dim objXMI* reqPage, goPage, xslfile, x, locale 

'Get the locale name which is the last directory name in the current path without the "\*. 
'This id can be used later in any tasks that have locale specific data, 
locale = mid(server.MapPath(V), Ien(server.MapPath( M ../")) + 2) 

'load the master xml structure into a dom object - will be used globally 
set objXML = getXMLDoc (Server. MapPath(^/xml/master. xml")) 

'append the images and labels xml structures for the locale to master, xml 
AppendXMIiServer. MapPathrxml/images. xml")! 
AppendXML(Server. MapPathC xml/labels. xml")) ^ -JOS 

'get the page value off the form if it exists 
reqPage = Request("page") 

'if reqPage exists then loop the tasks for building the requested page otherwise default tp page 1 

if reqPage O *" then 

goPage = RunTasks(reqPage) „ 
if goPage O reqPage then it will be treated like a redirect and the new goPage will need to 

have its tasks run. this will only be done 1 time, 
if goPage O reqPage then 

goPage = RunTasks(goPage) 

end if 

else 

goPage = RunTasksO") 

end if 

'Append the variable x xml structure into the objXML structure for use in the xsl templates. 
'This will only be run if some values have been poplulated into the variable, 
if x O then 

x— "<builddata>" & x 

'the task xml nodes that will be built indside here are in the tasks, asp - that is why x is a 
global variable 

x=x & </builddata>" 
AppendXML(x) 

end if 

'build the page with the XML structure loaded and appended to above using the XSL file for the next page 
number 

xslfUe = server, MapPath(".. /xsl/page" & goPage & .xsl ) ^JOS 

Response, write TransformXML( objXML, xslfile ) 

'cleanup the objects on this page - all others are cleaned on the individual pages 
set objXML = nothing 

%> 
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602-^ 

so* <?xml version=":LO"?> 

^process product^ "Customer program^ My Garage process= Register > 
_ ^tas ks ^ 

<task id="l" name="vaMateEmailAddress"/> 
<task id="2" name= "isEmailAddressAvailable"/> 
<task id="3" name= validateUserlnformation"/> 
<task id="4" name="createUserlnformation"/> 
<task id="S ff name="getU»erInformaticny> 
<task id="6" name="lookforemail"/> 
</tasks> 

^<page id= "1" name= "Enter email address"> 

-<build/> 



</page> 

5ro ^< p age id= "2" name= "Re- enter email address" > 



672- 

670 

672- 



-<build> 

~^<task id= T success= "page l"fail= page 1 /> 
</build> 
</page> 

=-<page id="3"name= "Email exists"> 
-<build> 

^<task id-"5"success="page 3"fail="page 7 /> 

</build> 
</page> 

-<page id="4"name="Enter user information > 
-<build> 

<task id="l"success="page l"fail= page 1 /> 
</build> 

</page> „ 
-<page id= "5" name= "Re-enter user information > 

<build/> 
</page> 

-<page id="6"name="info entered"> 
-<build/> 

<task id="3"success="task 4"fail= page 5 /> 
<task id= "4"success= "page 6"fail= page 7"/> 
</build> 
</page> 

-<page id="7"name= "System error message > 

<build/> 
</page> 

-<page id= "8"name= "Logon Page"> 
<build/> 
</page> 
</pages> 
</process> 
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function validateEmailAddress() 
dim email 

'Get the email address variable 
email = Request(" email") 



if email o"" then 

'check to make sure the email address is properly formed 
if instr(l, email, "&) > 0 then^ 

validateEmailAddress — "Pass* 

else 

'the next xsl page urill need the email address in the xml structure 
BuildElementXML "emailaddress", email 
validateEmailAddress = "Fail" 

end if 

else 

'the next xsl page will need the email address in the xml structure 
BuildElementXML "emailaddress", email 
validateEmailAddress = "Fail" 

end if 
end function 

function isEmailAddressAvailableQ 
dim spCMD, rsSP, email 



'Get the email address variable 
email - equest( "email") 



Set spCMD = SetSPCMD("GetEmailAddress", strConnect) 'strConnect is set in the 
connect, asp include file 

spRet spCMD 'A returned value will occur 
'splntln spCMD, "@MyAge", UserAge 

spVarCharln spCMD, ©emailAddress", 255, email '255 character email address 
set rsSP = spCMIX execute 'execute the stored procedure 



'stored procedure result of success or fail 
if spCMD, parame ters( " RETURN_VALUE") then 
isEmailAddressAvailable - "Fail" 

else 

'task completed ok 
isEmailAddressAvailable = "Pass" 

end if 



'Regardless of the outcome — the email address is needed on the next page, 
BuildElementXML "emailaddress", email 
set spCMD = nothing 
set rsSP = nothing 
end function 



function vaHdateUserInformation() / 

validateUserlnformation — "Pass" 
end function 

,r — 708 

function createUserInformation() 
dim spCMD, rsSP 
'form element variables 
dim email, fname, lname 



'Get the email address, w fname and lname variables 
email = Request^ "email") 
fname = Request^ "fname") 
lname = Request("lname") 



F/G. 7A 



Set spCMD = SetSPCMDCCreateUsermformation", strConnect) 
spRet spCMD 'A returned value will occur 
splntln spCMD, "@MvAge", UserAge 

spVarCharln spCMD, @emailAddress w f 255, email '255 character email address 
'need to make a text input parameter or adLongVarChar 
dim t 

t = *<data name= www + "fname" + """>" Sc fname & "</data>" 

t = t + "<data name="" + "lname" + """>" & lname & "</data>" 



spVarCharln spCMD, "AXMLElements", len(t),t 'xml structure 
set rsSP = spCMD, execute 'execute the stored procedure 

'stored procedure result of success or fail 
if spCMD.parametersCRETURN_VALUEp then 
createUserlnformation = "Fatf 

else 

createUserlnformation = "Pass" 
'add records to xml?? 

end if 



set spCMD = nothing 
set rsSP = nothing 
end function 



function getUserlnformationQ 

dim spCMD, rsSP, email 
email = Request("emair) 



Set spCMD = SetSPCMDCgetUsermformation", strConnect) 
spRet spCMD 'A returned value -will occur 
'splntln spCMD, "©MyAge", UserAge 
spVarCharln spCMD, "@MyAge", UserAge 

spVarCharln spCMD, *@emailAddress\ 255, email 255 character email address 
set rsSP — spCMD. execute 'execute the stored procedure 



'stored procedure result of success or fail 
if spCMD, parameters( w RETURN_VALUE") then 
getUserlnformation = "Fail" 

else 

'get the value of the return record 

x=x + *<task name^""" + "getuserinformation" + ""V 
x=x + "<record>* 

x=x + w rsSRfieldsCXMLElements"). value 
x=x +"</record>" 
x=x + "</task>" 



get Userlnformation = "Pass" 

end if 

set spCMD = nothing 
set rsSP = nothing 



'Because stored procedures may return multiple recordsets, ire need to handle them. 
Assuming ire wish to display all of the recordsets as HTML, the folkrwing code suffices: 
'Do until rsSP Is Nothing 

R32TABLE rsSP 

rsSP= rsSP. NextRecordSet 

'Loop 
end function 

%> 

<% -772 

function lookforemailQ 

'lookforemail="Fair 

lookforemail="Pass" C~/ "7/^ 

end function / / L7, / iD 

%> 



<?xml versions "1.0" ?> 
o n <7 — <labels> 
u ^ ^><label id= "title* > 

^X![CDATA[AutobyteLcom Customer Registration] ]> 

o n ~ </label> 

^^><label id="footer"> 

X![CDATA[ 1997-201 autobyteLcom]]> 

fio?—^ </label> 

^><label id= "emailAddress* > 
X! [CD AT A[ Email address: ]]> 
</label> 

-<label id="emailAddres0Enter f '> 

<![CDATA[Enter your email address ]]> 
</label> 
-<label id="emattAddre»Fair> 

<![ CD ATA[ Error: '|emailAddress|' is not a valid email address. ]]> 

</label> 

- <label id- "emailAddreMReEnter" > 

<![ CD AT A[ Please re-enter your email address, ]]> 
</label> 
~<label id="mfomie"> 

<![CDATA[your Title: ]]> 
</label> 
-<label id=*mfoStreet" > 

<![ CD ATA[ Street Address: ]]> 
</label> 
-<label id^'mfoCity^ 
<![CDATA[city:]]> 
</label> 
-<label id="infoState*> 

<![CDATA[state:]]> 

</label> 
-<label id= "enter Agam"> 

<![ CD AT A[ Please correct your information and submit again ]]> 

</label> 
-<label id^InfoEntered^ 

<3[CDATA[Your information has been successfully entered into the database.]] > 
</label> 
-<label id="ErrorPage"> 

<![CDATA[0ne of the tasks failed when trying to build the page. This is the 
system error page.]]> 

</label> 
-<label id="LogonPage"> 

<![CDATA[This will be the logon page J] > 
</label> 
-<label id= "emailBelongsTo"> 

<![CDATA[...in development... ]]> 

</label> 
-<label id="NewlabelName"> 

<![ CD ATA[ Enter Label Text Here]]> 

</labels> /~ /C?, & 



<?xml version="l,0" ?> 
an? — <labels> 
^ ~^><label id="title"> 

^ 7 *~" "N3[CDATA[Autobyteicom Cliente Registration] ]> 

^^><label id= "footer^ 

[ CDATA[ 1997-201 autobytelcom ] ] > 
go2—^ </label> 

-<label id="emailAddreM"> 
90+ -<![CDATA[Email se dirigen:]]> 
</label> 

~<label id= "emailAddressEnter" > 

<![CDATA[Por favor entre en su dirteccion del email] ]> 
</label> 
-<label id== * f emattAddres5Pair> 

<![CDATA[E1 error: '|emailAddressf no es una direccion del emailvalida ,] ] > 
</label> 

- <label id= " emailAddressReEnter* > 

<![CDATA[por favor el re — entre en su direccion del maiL]]> 
</Iabel> 
~<label id="mfoTitle' f > 
<![CDATA[su Titulo: ]]> 
</label> 
-<label id="mfoStreet* > 

<![CDATA[La Direccion caUejera:]]> 
</label> 
-<label id^mfoCityS 

<![CDATA[La ciudad:]]> 

</label> 
-<label id=*mfoState"> 

<![CDATA[E1 estado;]]> 

</label> 
-<label id= "enter Again > 

<![CDATA[por favor corrija su informacidn y someta de nuevoJ]> 
</label> 
-<label id="InfoEntered"> 

<![CDATA[En su infornacion se ha entrado con exito en el banco de datos, ]]> 

</label> 
-<label id="ErrorPage"> 

<![CDATA[lTna de las tareas fallo al intentar construir la pagina, Esta es la 
pagina de error de sistema.]]> 
</label> 
-<label id="LogonPage*> 

<![CDATA[Esta sera la pagina del logon. ]]> 

</label> 
-<label id=*emailBetong5To"> 

<![CDATA[_en el desarrolio,. ,]]> 

</label> 
</labels> 



<?xml version="l,0''?> ^-?002 ^^^-7004 
<images> / f 

<img id=' f company__logo" name="us_logo, jpg"> 
<img id="productl__photo" name="us_productl, jpg"> 
</images> I 



-7002 



-W04 



r/a to 



<?xml version="LO"?> ^W02 ^-?004 
<images> ( f 

<img id="company_logo" name="esp_logo. jpg"> 
<img id="productl_photo" name= "esp_productl.jpg" > 
</images> ( \ 

^7002 ^—fOO* 
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<?xml version-"l,0" ?> 
-<xsl; stylesheet xmlns; xsl="http: / /wnr, ^org/1999/XSL/Transf orm" 
version="l,0"> 
- <xsl: template match= "process" > 
<xsl; apply— templates/ > 
</xsl: template> 
—<xsl; template ma tch= "process" > 
-<html> 
-<head> 
~<title> 

<xsl: value-of select="labels/label[@id- 'title'] disable- output- 
escaping- "yes"/> 
</title> 
</head> 
-<body> 

<! Header template is defined in the included headere.xsl file 

> 

<xsl: call— template name= "header" /> 

<! This is the main section of the page > 

<! Footer template is defined in the included footer, xsl file 

> 

<xsl; call— template name= "footer" /> 
</body> 
</html> 
</ xsl; template> 

<! Include for Header and Footer XSL templates > 

<xsl: include href — "header. xsl"/> 
<xsL include href = "footer, xsl" /> 
<xsl: includehref = "../../../../ utils/replace, xsl" /> 
</ xsl; stylesheet> 





<?xml versK>n="1.0" ?> 
- <xsl: stylesheet xmlns; xsl= "http: //ww, yt3. org/1999/XSL/Transf orm" version^ "1, 0"> 
-<xsl; template match- "process > 
<xsL' apply- templates /> 
</xsL templates> 
— <xsl; template match= "proeess"> 
-<html> 
-<head> 
~<title> 

<xsl: value-of select="labels/label[©id= , title , ]''disable-output- 
escaping="yes" /> 
</title> 
</head> 
-<body> 

<! Header template is defined in the included header, xsl file > 

<xsl: call- template name= "header" /> 

<! Label above the email address input box, > 

<xsl; value-of select="labels/label£@ld='emailAddressEnter ]" disable- output- 
escaping^ "yes" /> 
-<form name= "formEmail" action= "default. asp"method= "post"> 

<! Label next to the email address input box. > 

<xsl: value- of select="labels/label[©id s ='emailAddress'] disable- output- 

escaping="yes" /> 
<input type= text name= email /> 

<! Hiddens used for getting to^next stage > 

<input type= "hidden name="page"value="4" /> 
<input type= "submit" value= Submit" /> 
</form> 

<! Footer template is defined in the included footer, xsl file > 

<xsl; call— template name— "footer" /> 
-<br> 

<xsl; value-of select^ "labels/label[^d-'NewLabelName']" disable- output- 
eseaping= "yes" /> 
</br> 
</body> 
</html> 
</xsl: template> 

<! Include for Header and Footer XSL templates > 

<xsl: include href= "header, xsl" /> 
<xsl; include href= "footer, xsl" /> 
</ xsl: stylesheet> 
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